home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WordUp.dxr / Internal_5_scrollbar button.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  866 b   |  44 lines
  1. property pSprite, spriteNum, ptext, ptexttoscroll, pdir, pInc, pGo, pPressed, pnorm, pslidenum, pslider, pstart
  2.  
  3. on getPropertyDescriptionList me
  4.   return [#ptext: [#comment: EMPTY, #format: #string, #default: "ASS"], #pslidenum: [#comment: EMPTY, #format: #integer, #default: 0]]
  5. end
  6.  
  7. on beginSprite me
  8.   pSprite = sprite(spriteNum)
  9.   pstart = 1
  10.   pdir = pSprite.member.name.symbol
  11.   pslider = sprite(pslidenum)
  12.   ptexttoscroll = member(ptext)
  13.   pnorm = pSprite.member.name
  14.   pPressed = pnorm && "press"
  15.   if pdir = #up then
  16.     pInc = -1
  17.   else
  18.     if pdir = #down then
  19.       pInc = 1
  20.     end if
  21.   end if
  22. end
  23.  
  24. on mouseDown me
  25.   pGo = 1
  26.   pSprite.member = pPressed
  27. end
  28.  
  29. on mouseUp me
  30.   pGo = 0
  31.   pSprite.member = pnorm
  32. end
  33.  
  34. on mouseUpOutSide me
  35.   mouseUp(me)
  36. end
  37.  
  38. on enterFrame me
  39.   if pGo then
  40.     ptexttoscroll.scrollByLine(pInc)
  41.     pslider.slide()
  42.   end if
  43. end
  44.